Define Large Subreddits

large_subreddits <- pronoun_use_by_score_group %>%
  filter(
    score_group == "z1000+"
  ) %>% select(subreddit)
large_subreddits <- large_subreddits[,1,drop = TRUE]

Density plots of pronoun use

library(plotly)

plot_score_group = function (a,pronoun) {
  ggplotly(ggplot(a,aes_string(x = paste("contains_",tolower(pronoun),sep=""),color = "score_group")) + geom_density()+
             facet_wrap(~topic_level1)
             )}






large_sub_pronoun_use <- pronoun_use_by_score_group %>%
  filter(
    !subreddit %in% large_subreddits
  ) 


plot_score_group(large_sub_pronoun_use,"I") 
plot_score_group(large_sub_pronoun_use,"We") 
plot_score_group(large_sub_pronoun_use,"They")
agg_pronoun_use <- pronoun_use_by_score_group %>%
  filter(grepl("Sports", all_topics)) %>%
  group_by(score_group,subreddit,all_topics) %>%
  summarise(
    agg_i      = sum(num_comments*ZNcontains_i     )/sum(num_comments),
    agg_me     = sum(num_comments*ZNcontains_me    )/sum(num_comments),
    agg_we     = sum(num_comments*ZNcontains_we    )/sum(num_comments),
    agg_us     = sum(num_comments*ZNcontains_us    )/sum(num_comments),
    agg_they   = sum(num_comments*ZNcontains_they  )/sum(num_comments),
    agg_them   = sum(num_comments*ZNcontains_them  )/sum(num_comments),
    agg_you    = sum(num_comments*ZNcontains_you   )/sum(num_comments),
    
    total_comments = sum(num_comments),
    
    unweighted_i      =  mean(ZNcontains_i   ),
    unweighted_me     =  mean(ZNcontains_me  ),
    unweighted_we     =  mean(ZNcontains_we  ),
    unweighted_us     =  mean(ZNcontains_us  ),
    unweighted_they   =  mean(ZNcontains_they),
    unweighted_them   =  mean(ZNcontains_them),
    unweighted_you    =  mean(ZNcontains_you )
            
    
  )# %>% arrange(t1_t2) 
plot_categories_score_groups = function(agg_pronoun_use,pronoun){
ggplotly(
  ggplot(agg_pronoun_use, aes_string(x = "score_group", y = paste("agg_",tolower(pronoun),sep=""), name = "subreddit", color = "all_topics")) +
  geom_point(aes(size = total_comments))
)
  }
plot_categories_score_groups(agg_pronoun_use,"I")

plot_categories_score_groups(agg_pronoun_use,"Me")

plot_categories_score_groups(agg_pronoun_use,"We")

plot_categories_score_groups(agg_pronoun_use,"Us")

plot_categories_score_groups(agg_pronoun_use,"They")

plot_categories_score_groups(agg_pronoun_use,"Them")

plot_categories_score_groups(agg_pronoun_use,"You")
LS0tCnRpdGxlOiAiMDNfc2NvcmVfZ3JvdXBfYW5hbHlzaXMiCm91dHB1dDogaHRtbF9ub3RlYm9vawotLS0KIyMgRGVmaW5lIExhcmdlIFN1YnJlZGRpdHMKCmBgYHtyfQpsYXJnZV9zdWJyZWRkaXRzIDwtIHByb25vdW5fdXNlX2J5X3Njb3JlX2dyb3VwICU+JQogIGZpbHRlcigKICAgIHNjb3JlX2dyb3VwID09ICJ6MTAwMCsiCiAgKSAlPiUgc2VsZWN0KHN1YnJlZGRpdCkKbGFyZ2Vfc3VicmVkZGl0cyA8LSBsYXJnZV9zdWJyZWRkaXRzWywxLGRyb3AgPSBUUlVFXQoKCmBgYAoKCiMjRGVuc2l0eSBwbG90cyBvZiBwcm9ub3VuIHVzZQoKYGBge3J9CmxpYnJhcnkocGxvdGx5KQoKcGxvdF9zY29yZV9ncm91cCA9IGZ1bmN0aW9uIChhLHByb25vdW4pIHsKICBnZ3Bsb3RseShnZ3Bsb3QoYSxhZXNfc3RyaW5nKHggPSBwYXN0ZSgiY29udGFpbnNfIix0b2xvd2VyKHByb25vdW4pLHNlcD0iIiksY29sb3IgPSAic2NvcmVfZ3JvdXAiKSkgKyBnZW9tX2RlbnNpdHkoKSsKICAgICAgICAgICAgIGZhY2V0X3dyYXAofnRvcGljX2xldmVsMSkKICAgICAgICAgICAgICl9CgoKCgoKCmxhcmdlX3N1Yl9wcm9ub3VuX3VzZSA8LSBwcm9ub3VuX3VzZV9ieV9zY29yZV9ncm91cCAlPiUKICBmaWx0ZXIoCiAgICAhc3VicmVkZGl0ICVpbiUgbGFyZ2Vfc3VicmVkZGl0cwogICkgCgoKcGxvdF9zY29yZV9ncm91cChsYXJnZV9zdWJfcHJvbm91bl91c2UsIkkiKSAKcGxvdF9zY29yZV9ncm91cChsYXJnZV9zdWJfcHJvbm91bl91c2UsIldlIikgCnBsb3Rfc2NvcmVfZ3JvdXAobGFyZ2Vfc3ViX3Byb25vdW5fdXNlLCJUaGV5IikKCgpgYGAKCmBgYHtyfQoKCgphZ2dfcHJvbm91bl91c2UgPC0gcHJvbm91bl91c2VfYnlfc2NvcmVfZ3JvdXAgJT4lCiAgZmlsdGVyKGdyZXBsKCJTcG9ydHMiLCBhbGxfdG9waWNzKSkgJT4lCiAgZ3JvdXBfYnkoc2NvcmVfZ3JvdXAsc3VicmVkZGl0LGFsbF90b3BpY3MpICU+JQogIHN1bW1hcmlzZSgKICAgIGFnZ19pICAgICAgPSBzdW0obnVtX2NvbW1lbnRzKlpOY29udGFpbnNfaSAgICAgKS9zdW0obnVtX2NvbW1lbnRzKSwKICAgIGFnZ19tZSAgICAgPSBzdW0obnVtX2NvbW1lbnRzKlpOY29udGFpbnNfbWUgICAgKS9zdW0obnVtX2NvbW1lbnRzKSwKICAgIGFnZ193ZSAgICAgPSBzdW0obnVtX2NvbW1lbnRzKlpOY29udGFpbnNfd2UgICAgKS9zdW0obnVtX2NvbW1lbnRzKSwKICAgIGFnZ191cyAgICAgPSBzdW0obnVtX2NvbW1lbnRzKlpOY29udGFpbnNfdXMgICAgKS9zdW0obnVtX2NvbW1lbnRzKSwKICAgIGFnZ190aGV5ICAgPSBzdW0obnVtX2NvbW1lbnRzKlpOY29udGFpbnNfdGhleSAgKS9zdW0obnVtX2NvbW1lbnRzKSwKICAgIGFnZ190aGVtICAgPSBzdW0obnVtX2NvbW1lbnRzKlpOY29udGFpbnNfdGhlbSAgKS9zdW0obnVtX2NvbW1lbnRzKSwKICAgIGFnZ195b3UgICAgPSBzdW0obnVtX2NvbW1lbnRzKlpOY29udGFpbnNfeW91ICAgKS9zdW0obnVtX2NvbW1lbnRzKSwKICAgIAogICAgdG90YWxfY29tbWVudHMgPSBzdW0obnVtX2NvbW1lbnRzKSwKICAgIAogICAgdW53ZWlnaHRlZF9pICAgICAgPSAgbWVhbihaTmNvbnRhaW5zX2kgICApLAogICAgdW53ZWlnaHRlZF9tZSAgICAgPSAgbWVhbihaTmNvbnRhaW5zX21lICApLAogICAgdW53ZWlnaHRlZF93ZSAgICAgPSAgbWVhbihaTmNvbnRhaW5zX3dlICApLAogICAgdW53ZWlnaHRlZF91cyAgICAgPSAgbWVhbihaTmNvbnRhaW5zX3VzICApLAogICAgdW53ZWlnaHRlZF90aGV5ICAgPSAgbWVhbihaTmNvbnRhaW5zX3RoZXkpLAogICAgdW53ZWlnaHRlZF90aGVtICAgPSAgbWVhbihaTmNvbnRhaW5zX3RoZW0pLAogICAgdW53ZWlnaHRlZF95b3UgICAgPSAgbWVhbihaTmNvbnRhaW5zX3lvdSApCiAgICAgICAgICAgIAogICAgCiAgKSMgJT4lIGFycmFuZ2UodDFfdDIpIApwbG90X2NhdGVnb3JpZXNfc2NvcmVfZ3JvdXBzID0gZnVuY3Rpb24oYWdnX3Byb25vdW5fdXNlLHByb25vdW4pewpnZ3Bsb3RseSgKICBnZ3Bsb3QoYWdnX3Byb25vdW5fdXNlLCBhZXNfc3RyaW5nKHggPSAic2NvcmVfZ3JvdXAiLCB5ID0gcGFzdGUoImFnZ18iLHRvbG93ZXIocHJvbm91biksc2VwPSIiKSwgbmFtZSA9ICJzdWJyZWRkaXQiLCBjb2xvciA9ICJhbGxfdG9waWNzIikpICsKICBnZW9tX3BvaW50KGFlcyhzaXplID0gdG90YWxfY29tbWVudHMpKQopCiAgfQoKcGxvdF9jYXRlZ29yaWVzX3Njb3JlX2dyb3VwcyhhZ2dfcHJvbm91bl91c2UsIkkiKQpwbG90X2NhdGVnb3JpZXNfc2NvcmVfZ3JvdXBzKGFnZ19wcm9ub3VuX3VzZSwiTWUiKQpwbG90X2NhdGVnb3JpZXNfc2NvcmVfZ3JvdXBzKGFnZ19wcm9ub3VuX3VzZSwiV2UiKQpwbG90X2NhdGVnb3JpZXNfc2NvcmVfZ3JvdXBzKGFnZ19wcm9ub3VuX3VzZSwiVXMiKQpwbG90X2NhdGVnb3JpZXNfc2NvcmVfZ3JvdXBzKGFnZ19wcm9ub3VuX3VzZSwiVGhleSIpCnBsb3RfY2F0ZWdvcmllc19zY29yZV9ncm91cHMoYWdnX3Byb25vdW5fdXNlLCJUaGVtIikKcGxvdF9jYXRlZ29yaWVzX3Njb3JlX2dyb3VwcyhhZ2dfcHJvbm91bl91c2UsIllvdSIpCgoKCgoKYGBgCgo=